home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 January / macformat-033.iso / mac / Education / Dorling Kindersley / Dictionary / DATA / Shared.Dir / 00758.ls < prev    next >
Encoding:
Text File  |  1995-04-25  |  447 b   |  16 lines
  1. on buttonpush buttonupC, buttondownC
  2.   set castlist to [:]
  3.   repeat with channel = 1 to 48
  4.     setaProp(castlist, channel, the castNum of sprite channel)
  5.   end repeat
  6.   set buttonS to getOne(castlist, buttonupC)
  7.   puppetSprite(buttonS, 1)
  8.   set the castNum of sprite buttonS to buttondownC
  9.   updateStage()
  10.   repeat while the mouseUp <> 1
  11.   end repeat
  12.   set the castNum of sprite buttonS to buttonupC
  13.   updateStage()
  14.   puppetSprite(buttonS, 0)
  15. end
  16.